home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib07.dsk / SCROLL RIGHT LOADER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  424b  |  14 lines
  1. 10  REM  SCROLL RIGHT LOADER
  2. 20  INPUT "ENTER BASE ADDRESS: ";B
  3. 30 I = 0
  4. 40  READ J: IF J <0  THEN 60
  5. 50  POKE B +I,J:I = I +1: GOTO 40
  6. 60  PRINT "SCROLL.RIGHT LOADED AT "B
  7. 70  PRINT "LENGTH: "I" BYTES. NEXT ADDR: "B +I
  8. 80  END 
  9. 90  DATA  165,34,197,35,240,30
  10. 100  DATA  72,32,36,252,165,40,105,1,133,42
  11. 110  DATA  165,41,133,43
  12. 120  DATA  164,33,136,136,177,40,145,42,136,16,249
  13. 130  DATA  104,105,1,16,222,96
  14. 140  DATA  -1